home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / sale.dxr / exitFrameScripts_41_WriteAd_init.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  656 b   |  14 lines
  1. on prepareFrame me
  2.   sendAllSprites(#bringResourceButtonsForward)
  3. end
  4.  
  5. on exitFrame me
  6.   global gPopUpMenuMan, gToolBarTextMan, gAdTextList
  7.   setToolBarText(gToolBarTextMan, "Write your ad above, then select ENTER to prepare it for press. " & "Be sure to fill in all boxes. Then select RUN AD. " & "For more information on setting a house price, see the Library.", 1)
  8.   gAdTextList = [#hLine: EMPTY, #Descrip: EMPTY, #price: EMPTY, #Contact: EMPTY]
  9.   member("headline_text").text = gAdTextList.hLine
  10.   member("descrip_text").text = gAdTextList.Descrip
  11.   member("price_text").text = gAdTextList.price
  12.   member("contact_text").text = gAdTextList.Contact
  13. end
  14.